(define append (lambda(lst lst2) (if (null? lst) (list lst2) 
(cons (car lst) (append (cdr lst) lst2)))))
(define else #t)
(define map (lambda(fc lst) (if (null? lst) '()
(cons (fc (car lst)) (map fc (cdr lst))))))
(define not (lambda(e) (if e #f #t)))
(define reverse (lambda(lst) (if (null? lst) '()
(append (reverse (cdr lst)) (car lst)))))
